home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Floppy Magazine 1988 #6
/
Floppy_Magazine_88-6_1988_Megasystems_Oy_fi_Side_A.d64
/
wiza to easy.
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2023-02-26
|
748b
|
28 lines
5 dim sy$(50)
10 input"anna tiedostonimi:";tn$
11 open15,8,15,"s0:"+tn$+".ef":close15:open3,8,0,"0:"+tn$+",p,r"
12 open2,8,2,"0:"+left$(tn$,13)+".ef,s,w"
19 byte$="":n=0
20 n=n+1:get#3,ye$
21 ifst<>0thenprint#2:close2:close3:goto40
22 ifye$="[220]"thench$=chr$(13):goto30
23 ifye$=chr$(119)thench$="]":goto30
24 ifye$=chr$(120)thench$="\":goto30
25 ifye$=chr$(121)thench$="[":goto30
26 ifye$=""thench$="@":goto30
27 ifasc(ye$)<27thench$=chr$(asc(ye$)+64):goto30
28 ifasc(ye$)>64andasc(ye$)<91thench$=chr$(asc(ye$)+128):goto30
29 ch$=ye$
30 print#2,ch$;:goto20
31 sy$(l)=sy$(l)+ch$:iflen(sy$(l))<254then20
32 l=l+1:goto20
40 print"tekstin nimi:";tn$
41 print"tekstin pituus:[157]";n;"merkki[."
42 ifn<254thenn=254
43 ifn/254>int(n/254)thenbl=int(n/254)+1
44 ifn/254=int(n/254)thenbl=n/254
45 print"filen pituus:[157]";bl;"blokkia."
46 print"k[[nn\s tehty.":end
50 printye$;:poke198,0:wait198,1:ifchr$(peek(631))=" "thenreturn
51 end